home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Trading on the Edge
/
Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin
/
pc
/
mac_file
/
vendor_d
/
neuralwa
/
nw2v50
/
stdprobe.iif
< prev
next >
Wrap
Text File
|
1993-08-23
|
3KB
|
127 lines
inst4.0 !18:00 Oct-22-90 (stdprobe.iif) Standard Probe include
!
! Assumptions:
! On Input: n4 Number of nodes in Output layer
! n5 Low limit for activation values
! n6 High limit for activation values
! n7 Index of Output layer
! n1, n2, n3 are corrupted on output
?BPEr 0
>beq WtHist
@ILdD !load default instrument
=x 316 !place to put instrument on screen
=y 40
=ITit "RMS Error" !Instrument title
=IGTy "Strip" !Graph Type
=IGVr "CurErr" !Variable
=ITTy "RMS" !RMS Transformation Type
=ITMd 2 !Component Transformation
=IEpc 1 !RMS over an epoch
=Ihgt 64
=Iwdt 300
=Ivmn 0.0
=Ivmx n6
=Ignx 100 !100 graph points
=Inpl 1 !1 plots
=IGC0 11 !Plot colors
=IGC1 13
=IGCF 12 !Foreground color
=IGCB 8 !Background color
=ILnA 1 !Active in Learn
=IRcA 0 !Not active in recall
=ILDv 10 !Every 10 iterations
=IPrb "Output" !Point to default probe
=ICAc 1 !Convergence criterion active
=ICTh 0.001 !Convergence Threshold
@IAdd !Now create instrument
:WtHist
?BPHi 0
>beq CnfMat
@ILdD !load default instrument
=x 316 !place to put instrument on screen
=y 130
=ITit "Weight Histogram" !Instrument title
=IGTy "Hist" !Graph type
=IGVr "Weight" !Variable
=ITTy "RMS" !RMS Transformation Type
=ITMd 0 !No transformation
=IEpc 0 !do NOT accumulate over epoch
=Ihgt 64
=Iwdt 300
=Ivmn -8.0
=Ivmx 8.0
=Ignx 30 !100 bins
=IGC0 11 !Plot colors
=IGC1 11
=IGCF 12 !Foreground color
=IGCB 8 !Background color
=ILnA 1 !Active in Learn
=IRcA 0 !Not active in recall
=ILDv 20 !Every 20 iterations
=IPrb "Output" !Point to probe
=ICAc 0 !No Convergence criterion
=ICTh 0.0 !Convergence Threshold
@IAdd !Now create instrument
:CnfMat
?BPCM 0
>beq EndInstr
!Loop over output layer to determine number of matrices
=y 220 !Start y position
=NPEl n7 !Target Layer is Output layer
=NPEn 0 !First PE in Output layer
=n3 4 !Allow at most 4 Conf. Matrices
=n1 0 !Initialize counter
=n2 n4 !Determine upper limit
?n2 n3 !Greater than limit?
>ble CnfMLp
=n2 n3 !Apply the limit
:CnfMLp
+n1 1
?n1 n2
>bgt EndInstr
=PNam "_pe_" !prefix
+PNam n1 !sequential numbering
@PbAS !Add Probe
@PbDC !Delete all components just in case
@NrPE !Point to target PE
@PAPE !Add target PE to probe
+NPEn 1
! *** Build Instrument ***
@ILdD !load default instrument
=ITit "Conf. Matrix "
+ITit n1
=IGTy "ConfM"
=IGVr "Out"
=ITTy "RMS" !RMS Transformation Type
=ITMd 0 !No transformation
=IEpc 1 !Force epoch
=Ihgt 90 !height of graph
=Iwdt 90 !Width of graph
=Ivmn n5
=Ivmx n6
=Ignx 9 !Num horiz bins
=Inpl 81 !Total Num Bins
=ILnA 1 !Active in learn
=IRcA 1 !Active in recall
=ICAc 0 !No Convergence criterion
=ICTh 0.0 !Convergence Threshold
=ILDv 5 !Every 5 Epochs
!Calculate x position
=x n3
-x n2
+x n1
-x 1
*x 130
+x 100
=IPrb PNam !Point to probe
@IAdd !Now create instrument
>br CnfMLp !Go to next PE
:EndInstr